home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / fglqbx10.zip / CC-01.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  446b  |  32 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DECLARE SUB Int1C(Flag)
  6.  
  7. CONST Esc = 27
  8.  
  9. DIM KeyCode AS STRING*1
  10. DIM AuxCode AS STRING*1
  11.  
  12. DIM SHARED Status1, Status2
  13.  
  14. Int1C(1)
  15.  
  16. Status1 = 0
  17. Status2 = 0
  18. FGgetkey KeyCode, AuxCode
  19.  
  20. WHILE KeyCode <> CHR$(Esc)
  21.    PRINT
  22.    PRINT "Joystick 1 status:"; Status1
  23.    PRINT "Joystick 2 status:"; Status2
  24.    Status1 = 0
  25.    Status2 = 0
  26.    FGgetkey KeyCode, AuxCode
  27. WEND
  28.  
  29. Int1C(0)
  30.  
  31. END
  32.